From: Justin Burkett <justin@burkett.cc>
Date: Tue, 23 Apr 2024 13:20:28 +0000 (-0400)
Subject: Revert "* which-key.el (which-key--partition-list): Replace cl-subseq by take"
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~983^2~10^2~2
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=ba323d6712d54806aa82847d017e94eafcf99d6f;p=emacs.git

Revert "* which-key.el (which-key--partition-list): Replace cl-subseq by take"

This reverts commit 94a29cda9f75c9901667bf45ff25bd8c892cb416.
---

diff --git a/which-key.el b/which-key.el
index 1ece569e7ed..0e14c76df95 100644
--- a/which-key.el
+++ b/which-key.el
@@ -2016,7 +2016,7 @@ that width."
   "Partition LIST into N-sized sublists."
   (let (res)
     (while list
-      (setq res (cons (take (min n (length list)) list) res)
+      (setq res (cons (cl-subseq list 0 (min n (length list))) res)
             list (nthcdr n list)))
     (nreverse res)))